 /* $Revision: Eb2 sp3 $    BY: Quan Tao      DATE: 11/28/08  ECO: *hk-s-xxxx  * */
 
 DEFINE VARIABLE sParam AS CHARACTER INITIAL "".                                                     
 sParam = " -db mfghka -ld qaddb" + " -N TCP -H " + "hkqadser" + " -S " + "3838" + "  -ld myqaddb" . 
 if not connected("myqaddb") then do:
    CONNECT VALUE(sParam) . 
 END.

